home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 June / Macworld (1999-06).dmg / Shareware World / Graphics / Ink_FineArt 3D / Installer / Installer.dxr / 00011.ls < prev    next >
Encoding:
Text File  |  1999-02-18  |  383 b   |  15 lines
  1. on enterFrame
  2.   cursor(4)
  3.   put "Quitting applications..." & RETURN into field "ProgressInfo"
  4.   set appList to OSGetProcessList()
  5.   set currentApp to OSGetProcess()
  6.   set numApps to count(appList)
  7.   repeat with i = 1 to numApps
  8.     set app to getAt(appList, i)
  9.     if (app <> currentApp) and (app <> "Finder") then
  10.       OSKillProcess(app)
  11.     end if
  12.   end repeat
  13.   startTimer()
  14. end
  15.